home *** CD-ROM | disk | FTP | other *** search
/ PD Collection CD 1 / PD Collection CD 1.iso / demos / pms / Scores / Samp08 (.txt) < prev    next >
LaTeX Document  |  1993-06-26  |  4KB  |  118 lines
  1. @ Sample for Computing in Musicology 1993
  2. @ Philip Hazel, June 1993
  3. draw ped
  4.   0 0 moveto "\**163\ "show
  5. enddraw  
  6.         
  7. draw star
  8.   linegapx neg 3 add 0 moveto "\**36\"/s3 show
  9. enddraw  
  10. draw pedstar
  11.   linegapx neg 3 add 0 moveto "\**36\  "/s3 show "\**163\" show
  12. enddraw  
  13. draw circle
  14.   -1.5 headbottom 3 sub moveto
  15.    3 -2.5  7 -2.5  10   0 rcurveto
  16.    3    3  3    7   0  10 rcurveto
  17.   -3  2.5 -7  2.5 -10   0 rcurveto
  18.   -3   -3 -3   -7   0 -10 rcurveto
  19.   0.4 setlinewidth stroke
  20. enddraw  
  21. draw circle2
  22.   -5.5 headbottom 4 sub moveto
  23.    4   -3.5  10   -3.5  14  0 rcurveto
  24.    4.5  4   4.5    10   0  14 rcurveto
  25.   -4    3.5  -10  3.5  -14  0 rcurveto
  26.   -4.5  -4 -4.5   -10   0 -14 rcurveto
  27.   0.4 setlinewidth stroke
  28. enddraw  
  29. draw circle3
  30.   -3 headbottom 5.5 sub moveto
  31.    3.5   -3  8.5   -3   12  0 rcurveto
  32.    4    3.5   4    8.5  0  12 rcurveto
  33.   -3.5    3 -8.5    3  -12  0 rcurveto
  34.   -4   -3.5  -4   -8.5  0 -12 rcurveto
  35.   0.4 setlinewidth stroke
  36. enddraw  
  37. *define ped  [line/=L/bu linegap/=L/w34/l4/draw ped]
  38. *define ped2 [line/=L/bu linegap/=L/w34/l16/draw ped]
  39. *define star [linegap/=L/l4/draw star]
  40. *define pedstar [linegap/=L/l8/w30/draw pedstar]
  41. *define circ  [draw circle]
  42. *define circ2 [draw circle2]
  43. *define circ3 [draw circle3]
  44. *define gtb1 "\rm\beginning)"/a/c/s3 
  45. *define gtb2 "\rm\(Go to"/a/c/s3
  46. *define pp "\x1\pp"/m/s2
  47. *define p  "\x1\p"/m/s2
  48. *define mp "\x1\mp"/m/s2
  49. *define mf "\x1\mf"/m/s2
  50. *define f  "\x1\f"/m/s2
  51. *define sfz "\x1\sfz"/m/s2
  52. Heading 16 "|#4. Herbert Bielawa" 18
  53. Heading 16 "|Just Add Water" 100
  54. linelength 450
  55. justify top left right
  56. unfinished
  57. systemgap 130
  58. bracket
  59. brace 1-2
  60. beamendrests
  61. rehearsalmarks boxed 16
  62. textfont extra 1 "PMS.Alpha"
  63. textsizes 10 8 7 8
  64. tripletfont 8 italic
  65. time C
  66. [stave 1 "\bf\Piano"/m treble 1]
  67. "\*c\\rm\ = 80"/a/c
  68. ["A"/u20]
  69. "effervescent"/b/l16
  70. [couple down]
  71. r [space 4] &sfz/a/u2 (#c'=d''=)r=r= &circ [slur/b/ld3/lr1] a`=\su\ 
  72. {/rx/u35 re'\-\ c`\-\} [es] [space -4] [move 12 comma] >b1/u10/l2 >b2/l2 :)| @1
  73. ["B"/u14]
  74. [beamrit 2] 
  75. [\.\] {7/x$e-\c\g'-#f-a`-d`- &circ [slur/b] f``-$a`-}; 
  76. [\\ beamslope 0.2] r- &p/l8/u4 (c'-\.\b'-); 
  77. [beamslope 0.1 beammove 5]
  78. q=g```=\su\ [es] &f/a/l4/d2 (#c-\sd >\d'-) | @2
  79. &mp/l4 r-; {/u42 $b=\sd\ &mp/d6/c/l8  [move -4] 
  80. &circ [slur/b/rd48/rr24/lr4/ld3] e`=\su\f'=\sd\}; r=\l8\ &sfz/l4/u8 (c''=g''=)r-; r [es] 
  81. [beammove 4 beamslope 0.1]
  82. {/b/u37/n &f/a/d38 $g``-\.su\($e'-\.sd\$b'-)a-\.sd\} 
  83. [move 16 comma space -8] >b1/u12 >b2 :)| @3
  84. [sshere +8]
  85. ["C"/u34]
  86. &p/r4 r [space -8] [slur/a/co4] f`=\su\ c=\c su\ $a`=\h sd sl-8\$c=\sd sl-4\; [es]
  87. [beamslope 0]
  88. {5/u30 &circ2 [slur/b/lu18/lr3/ru28/ci24] $e-\- sd\ d`-\- su\ ($b-\-\f'-) [es]  
  89. $d-\-\ ($a``-\-su\c`-)} | @4
  90. &circ [slur/a/ld28/w] g`-\.su\($e'-\.sd\$b'-); r;
  91. {6/u42 &mp/l16/u8 [xslur/a/u1] #c=\sd\ [es] #f= [es] %c=\.c su\ [slur/a/co12/clr3/ll3/lu2] a`=\su\ 
  92. [space 4] $e=$a=}; [es] 
  93. q= &circ &sfz/b/d8 </b/d6/r12 [slur/b/lr7/ru2/co2] d``=\su\ 
  94. b=-\sd\#f'=-\sd\ #c=-\c\ [es] #e`=-\.\ | @5
  95. [sshere +20]
  96. [beamrit]
  97. [beamslope 0.005]
  98. [space 2] 
  99. [\.\] {18/x &circ2 &f/b/d54 [slur/a/lu3/ru6/ci4] #g-\sd\ [space 2] %g'- b- [es]
  100. >/b/d9  e-\c su sl-8\ #f`-\su sl-8\ #a-
  101. #c''- %c'- &circ3 [slur/b/ld3/rd2] a`-\su sl-8\ e''- #d'- #f-\c su sl-8\ [es] b`-\su sl-8\
  102. %f- a'- d- #g``-\su\ > e-} >b1/u12/l4 >b2/l4 [space -4 move 10 comma] :)| @6
  103. [endstave]
  104. [stave 2 bass 0]
  105. "\rm\(Before each repeat pause briefly."/b/l16/d38/s4
  106. "\rm\When playing through do NOT pause.)"/b/l16/s4
  107. [ulhere -22]
  108. r-.; &f/a/d2/l2 (g`=\sl2\$b`=) &ped qq &star q [el] :) | @1
  109. &ped Qq r= &pedstar q=q- | @2
  110. [ulhere -4]
  111. r-q- q= &star q= [el] [reset] q r r-.; [space 2]$e=\sl2\; [space 2] &ped 
  112. {/x q-q- &star q-[el]} :) | @3
  113. r &ped qQ | @4
  114. [ulhere -36]
  115. q- &star q- [el] rq r=q= &ped q- | @5
  116. Qqq-q= &star q= [el] :)| @6
  117. [endstave]
  118.